FM Towns: Free Software Collection 4/FM Towns Free Software Collection 4 - Disc 1.iso/msdos/dbhamlog/editall.prg

Text File | 1991-10-18 | 4KB | 200 lines

*****************  検索修正 *****************
**************** EDITALL.PRG **** T.Chino ***
CLEAR
SET ORDER TO 1
GOTO TOP
SET EXACT OFF
SET COLOR ON

SET COLOR TO BR
  @ 1,15   SAY "*************************************************"
  @ 2,15   SAY "*                                               *"
  @ 3,15   SAY "********************************** 修正ALL.PRG **"
SET COLOR TO GR
  @ 2,18   SAY "アマチュア 無 線 ＱＳＯ ログ 管 理 システム"

SET COLOR TO BG
 @  5,20 SAY "    -------------------------------"
 @  6,20 SAY "    *  呼出符号                   *"
 @  7,20 SAY "    -------------------------------"
SET COLOR TO G
 @  8,15 SAY " 交信月日                   氏名  "
 @ 10,15 SAY "     時間                   住所  "
 @ 12,15 SAY "   周波数                  JCC/G         GL"
 @ 14,15 SAY " 電波形式        MHz        QSL   "
 @ 16,15 SAY "                         交信回数 "
 @ 18,15 SAY "                             "

SET COLOR TO

DO WHILE .T. && ****************111***********

SET COLOR TO GR
STORE SPACE(10) TO C
  @ 22,1 SAY "                                                              "
  @ 23,1 SAY "                                                              "
  @ 22,15 SAY "        修正する  呼出符号は  ? " GET C
  READ
  CLEAR GET

IF C="          "
 RETURN
ENDIF

C=TRIM(C)

SEEK C

STORE 1 TO N
DO WHILE .T. && ********2222

 IF EOF()
  EXIT
 ENDIF

IF CALL = C
 SKIP
 STORE N+1 TO N
ELSE
 SKIP -1
 EXIT
ENDIF
ENDDO && ***************222

DO WHILE .T. && ********333

 IF EOF()
  EXIT
 ENDIF

SET COLOR TO GRI
 @  6,39 SAY " "+CALL
SET COLOR TO GR
 @  8,25 SAY " "+DTOC(MMDDYY)
 @ 10,25 SAY " "+TIME
 @ 12,25 SAY " "+FREQ
 @ 14,25 SAY " "+WAVE
 @  8,48 SAY " "+NAME
 @ 10,48 SAY " "+ADDRES
 @ 12,48 SAY " "+JCC_G
 @ 12,58 SAY " "+GL
 @ 14,48 SAY " "+QSL
 @ 16,48 SAY "       "
IF CALL=C
 @ 16,48 SAY " "+STR((N-1),2)
ENDIF

SET CURS OFF
SET COLOR TO BR
 STORE SPACE(1) TO ZB
 @ 22,15 SAY " 前後のＤＡＴＡ検索 ( ↑･↓ )                  "
SET COLOR TO BGI
 @ 22,47 SAY " [ 修 正=C R ] "
SET COLOR TO BG
 @ 23,47 SAY " [ 中 止=ESC ] "
 @ 0,0 GET ZB
  READ
 CLEAR GET

 IF READKEY()=4
 SKIP -1
 LOOP
 ENDIF
 IF READKEY()=5
 SKIP
 LOOP
 ENDIF

 IF READKEY()=15 && CR
   EXIT
 ENDIF

 IF READKEY()=12 && ESC
  RETURN
 ENDIF

ENDDO && *************333

DO WHILE .T. && ********444

 IF EOF()
  EXIT
 ENDIF

SET COLOR TO
 @ 22,15 SAY "                                               "
 @ 23,47 SAY "                       "
SET COLOR TO BGI
 @ 22,47 SAY " [ 中 止=ESC ] "

SET CURS ON
SET COLOR TO GRI
 @  6,39 SAY " "+C
SET COLOR TO GR

STOR MMDDYY TO M && MMDDYY
STOR TIME   TO T && TIME
STOR CALL   TO C && CALL
STOR WAVE   TO W && WAVE
STOR FREQ   TO F && FREQ
STOR NAME   TO N && NAME
STOR ADDRES TO A && ADDRES
STOR JCC_G  TO J && JCC_G
STOR GL     TO G && GL
STOR QSL    TO Q && QSL

 @  8,25 SAY "" GET M
 @ 10,25 SAY "" GET T
 @ 12,25 SAY "" GET F
 @ 14,25 SAY "" GET W
 @  8,48 SAY "" GET N
 @ 10,48 SAY "" GET A
 @ 12,48 SAY "" GET J
 @ 12,58 SAY "" GET G
 @ 14,48 SAY "" GET Q
 READ
CLEAR GETS

 STORE " " TO YN
DO WHILE YN<>"Y" .AND. YN<>"N" .AND. READKEY()<>12
@ 20,15 SAY   "   交信記録に間違いないですか [ Y/N ] " GET  YN
    READ
    CLEAR GET
ENDDO

IF YN= "Y"
 REPLACE MMDDYY WITH M ;
           TIME WITH T ;
           WAVE WITH W ;
           FREQ WITH F ;
           NAME WITH N ;
         ADDRES WITH A ;
          JCC_G WITH J ;
             GL WITH G ;
            QSL WITH Q
@ 20,15 SAY   "                                                    "
 EXIT
ENDIF

  IF YN= "N"
     LOOP
  ENDIF

 IF READKEY()=12 && ESC
    RETURN
 ENDIF

ENDDO && ***********444

SET COLOR TO R
IF EOF()
@ 22,0 SAY " 該当する交信記録は有りません｡"
WAIT
LOOP
ELSE
LOOP
ENDIF
ENDDO && ************111
DO HAM